home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
tboxptch.txt
< prev
next >
Wrap
Text File
|
1985-06-16
|
896b
|
29 lines
Patches to Turbo Toolbox Software
*********************************
13:33:45 2/20/1985
-------------------
File : ACCESS.BOX
Location : In the "CloseIndex" procedure
Description :
The following code segment in the "CloseIndex" procedure:
if Updated then
begin
TaPack(Page,IdxF.KeyL);
PutRec(IdxF.DataF,PageRef,Page);
end;
Should be changed to read:
if Updated then
begin
TaPack(Page,IdxF.KeyL);
PutRec(IdxF.DataF,PageRef,Page);
Updated := False; { This line has been added }
end;
(The comment was added by this programmer and is NOT required.)
-----------------------------------------------------------------------------